How Accessible Subways Are?



Are there ADA compliances?





## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

What are their entrance types?

Other Accessibilities and Amenities

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

Cluster Subway’s Accessibility

When NOT considering restroom access,

## # A tibble: 1,868 × 29
##    division line   station_name station_latitude station_longitude route1 route2
##    <chr>    <chr>  <chr>                   <dbl>             <dbl> <chr>  <chr> 
##  1 BMT      4 Ave… 25th St                  40.7             -74.0 R      <NA>  
##  2 BMT      4 Ave… 25th St                  40.7             -74.0 R      <NA>  
##  3 BMT      4 Ave… 36th St                  40.7             -74.0 N      R     
##  4 BMT      4 Ave… 36th St                  40.7             -74.0 N      R     
##  5 BMT      4 Ave… 36th St                  40.7             -74.0 N      R     
##  6 BMT      4 Ave… 45th St                  40.6             -74.0 R      <NA>  
##  7 BMT      4 Ave… 45th St                  40.6             -74.0 R      <NA>  
##  8 BMT      4 Ave… 45th St                  40.6             -74.0 R      <NA>  
##  9 BMT      4 Ave… 45th St                  40.6             -74.0 R      <NA>  
## 10 BMT      4 Ave… 53rd St                  40.6             -74.0 R      <NA>  
## # ℹ 1,858 more rows
## # ℹ 22 more variables: route3 <chr>, route4 <chr>, route5 <chr>, route6 <chr>,
## #   route7 <chr>, route8 <dbl>, route9 <dbl>, route10 <dbl>, route11 <dbl>,
## #   entrance_type <fct>, entry <chr>, exit_only <chr>, vending <chr>,
## #   staffing <fct>, ada <lgl>, free_crossover <lgl>, entrance_latitude <dbl>,
## #   entrance_longitude <dbl>, station_location <chr>, entrance_location <chr>,
## #   `ada <- factor(ada, levels = c("FALSE", "TRUE"))` <fct>, …

When considering restroom access,